home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
095
/
rfix0326.arc
/
R-PC0326.MRG
< prev
next >
Wrap
Text File
|
1987-03-24
|
3KB
|
60 lines
* Merge this against rbbs-pc.bas Date 3-15-1987 Size 199424 bytes
* ------------[ Created 03-23-1987 17:11:58 ]------------
* REPLACING old line(s) by new
* ------[ first line different ]------
105 VERSION.ID$ = "CPC15.1A with TF032602 applied" ' TF032602
XOFF$ = CHR$(19)
XON$ = CHR$(17)
' ******************** Logon Error Message Table ****************************
* REPLACING old line(s) by new
459 GOSUB 9500
LAST.DATE.TIME.ON.SAVE$ = LAST.DATE.TIME.ON$
IF EXIT.TO.DOORS THEN _
USER.LOGON.TIME! = (VAL(MID$(LAST.DATE.TIME.ON$,10,2))*3600) + _
(VAL(MID$(LAST.DATE.TIME.ON$,13,2))*60) : _
CALL TIMEREMAIN (TIME.REMAINING!)
USER.FILE.INDEX = LOC(5)
GOSUB 5135
GOSUB 5170
IF REG.DAYS.REMAINING < 0 THEN _
CALL QTPUT (LG$(9)+" - security reset to "+STR$(EXPIRED.SECURITY),1):_
LOGON.ERROR.INDEX = 9 : _
USER.SECURITY.LEVEL = EXPIRED.SECURITY : _
* ------[ first line different ]------
LSET SECURITY.LEVEL$ = MKI$(USER.SECURITY.LEVEL) : _ ' TF032402
GOSUB 5135
USER.SECURITY.LEVEL$ = STR$(USER.SECURITY.LEVEL)
IF USER.SECURITY.LEVEL > -1 THEN _
USER.SECURITY.LEVEL$ = MID$(USER.SECURITY.LEVEL$,2)
FILE.NAME$ = "LG" + USER.SECURITY.LEVEL$ + ".DEF"
BYPASS.TIME.CHECK = TRUE
CALL OPENWORK (FILE.NAME$)
IF EC = 0 THEN _
GOSUB 6000
BYPASS.TIME.CHECK = FALSE
* REPLACING old line(s) by new
2030 IF Q = 0 THEN _
MESSAGE.TO$ = "ALL" _
ELSE CALL ALLCAPSD (B$(),1) : _
MESSAGE.TO$ = B$(1)
* ------[ first line different ]------
IF Q > 0 AND _ ' TF031801
LEN (B$(1)) < 2 THEN _ ' TF031801
CALL QTPUT ("Invalid user name! Try again.",1) : _ ' TF031801
GOTO 2020 ' TF031801
* REPLACING old line(s) by new
* ------[ first line different ]------
10930 IF DOS.VERSION < 2 OR _ ' TF032001
(REQUIRED.RINGS = 0 AND NOT SHOOT.YOURSELF) THEN _ ' TF032001
A$ = "Remote DOS unavailable" : _
RETURN
* REPLACING old line(s) by new
* ------[ first line different ]------
10970 IF NOT DOORS.AVAILABLE OR _ ' TF032001
(REQUIRED.RINGS = 0 AND NOT SHOOT.YOURSELF) THEN _ ' TF032001
A$ = "All doors locked!" : _
RETURN
IF CONFERENCE.MODE THEN _
A$ = "Cannot exit to a Door when in a Conference!" : _
RETURN